home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSDOSSYS Compress.xpl < prev    next >
Text File  |  2001-01-21  |  2KB  |  96 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH 1"="Startup/Shutdown\Startup\Windows 9x/ME\00) Init Hard-Disk Access"
  5. "NAME"="Compression Options"
  6. "VERSION"="1.46"
  7. "OSVERSION"="10101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Enable DoubleSpace"
  10. "TEXT 2"="Enable DriveSpace"
  11. "WARNING"="1"
  12. "DESCRIPTION 1"="!!!IMPORTANT!!!"
  13. "DESCRIPTION 2"="Be VERY VERY careful with this option, if you disable compression while currently using it, you will not be able to access the drive any more!"
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18.  
  19.  
  20. sF="C:\MSDOS.SYS"
  21. sO="OPTIONS"
  22. Sub Plugin_Initialize 
  23.   Call FileSetAttribute(sf,"S-")
  24.   Call FileSetAttribute(sf,"R-")
  25.   Call FileSetAttribute(sf,"H-")
  26.    
  27.   Call ReadItem("DBLSpace",1)
  28.   Call ReadItem("DRVSpace",2)
  29. End Sub
  30.  
  31. Sub ReadItem(Name,UIElem)
  32.  i=IniReadValue(sf,so,Name)
  33.  if IsEmpty(i) then
  34.     SetUIElement UIElem,true
  35.  else
  36.     if IsNumeric(i)=true then
  37.        if i=1 then SetUIElement UIElem,true
  38.     else
  39.        Call MsgWarning("WARNING! Unexpected Value found for option <" & NAME & "> - the value is: " & i)
  40.        SetUIElement UIElem,true
  41.     end if     
  42.  end if
  43. End Sub
  44.  
  45.  
  46. Sub Plugin_CheckData(ElementIndex)
  47. End Sub
  48.  
  49. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  50.  'X-Setup 2.0 has had problems with this settings so USE THE SAFE WAY by
  51.  'making a backup...
  52.  s="C:\MSDOS.XSB"
  53.  If FileExists(s) then
  54.   Call FileSetAttribute(s,"S-")
  55.   Call FileSetAttribute(s,"R-")
  56.   Call FileSetAttribute(s,"H-")
  57.   Call FileDelete(s)
  58.  End if
  59.  
  60.  Call FileCopy(sf,s)
  61.  
  62.  Call FileSetAttribute(s,"S+")
  63.  Call FileSetAttribute(s,"R+")
  64.  Call FileSetAttribute(s,"H+")
  65.  
  66.  
  67.  
  68.  
  69.  b=GetUIElement(1)
  70.  if b=true then
  71.   Call IniWriteValue(sf,so,"DBLSpace",1)
  72.  else
  73.   Call IniWriteValue(sf,so,"DBLSpace",0)
  74.  end if
  75.  
  76.  b=GetUIElement(2)
  77.  if b=true then
  78.   Call IniWriteValue(sf,so,"DRVSpace",1)
  79.  else
  80.   Call IniWriteValue(sf,so,"DRVSpace",0)
  81.  end if
  82.  
  83.  
  84.  Restart
  85. End Sub
  86.  
  87.  
  88. Sub Plugin_Terminate 
  89.  Call FileSetAttribute(sf,"S+")
  90.  Call FileSetAttribute(sf,"R+")
  91.  Call FileSetAttribute(sf,"H+")
  92. End Sub
  93.  
  94.  
  95.  
  96.